Loadstar 15/015.d81/address file

Commodore BASIC | 1985-01-01 | 3.3 KB | 144 lines

10 rem ***********************
12 rem * random file example *
14 rem ***********************
16 dimi$(664):fd=0:fx=5:ch=2:fp=1
18 print"[147][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198]"
20 print"  insert data sheet"
22 print"[196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]"
24 print"    start press 's'"
26 getp$:ifp$<>"s"then26
28 open15,8,15,"i0":open2,8,2,"#"
30 print"[147][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198]"
32 print"index file operation"
34 print"[196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]"
36 input"     new sheet? n[157][157][157]";o$:print""
38 ifo$="n"then46
40 ifo$<>"y"then36
42 print:print"    wait!":fori=1to664
44 print"    [157][157][157][157][157]"i;:i$(i)="/"
45 printi$(i):next:goto50
46 open5,8,5,"0:index,s,r"
47 fori=1to664:input#5,i$(i)
48 print i;" ";i$(i)
49 nexti:close5
50 print"[147][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198]"
52 print"     job menu        "
54 print"[196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]"
56 print
58 print"     1=create"
60 print"     2=delete"
62 print"     3=search"
64 print"     0=end"
65 print
66 input"1 , 2 , 3 , 0   1[157][157][157]";o$
68 ifo$="0"thenclose15:close5:close2:      goto63000
70 ifo$="1"then104
72 if o$="3" then 8000
74 ifo$<>"2"then50
76 goto200
100 rem ***********************
102 rem * master file create  *
103 rem ***********************
104 print"[147][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198]"
105 print" [160]master file create"
106 print"[196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]"
107 input"record no. = 0[157][157][157]";f
109 if f=0then170
110 input"name     =.[157][157][157]";fb$(1)
120 input"address  =.[157][157][157]";fb$(2)
130 input"zip      =.[157][157][157]";fb$(3)
132 input"tel      =.[157][157][157]";fb$(4)
134 input"comment  =.[157][157][157]";fb$(5)
140 gosub5200
150 i$(f)=fb$(1)
160 goto104
170 open5,8,5,"@0:index,s,w"
175 fori=1to664:print#5,i$(i);chr$(13);
180 print i;" ";i$(i)
185 next:close5
190 goto74
200 rem ***********************
201 rem *  master file delete *
202 rem ***********************
210 print"[147][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198]"
212 print"  master file delete"
214 print"[196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]":print
220 input"record no. = 0[157][157][157]";f
230 iff=0then260
235 ifi$(f)<>"1"then220
240 i$(f)="/":print"record no."f;"delete"
250 goto220
260 open5,8,5,"@0:index,s,w"
265 fori=1to664:print#5,i$(i);chr$(13);
270 print i;" ";i$(i)
275 next:close5
280 goto50
300 rem ***********************
301 rem *  file search        *
302 rem ***********************
310 print"[147][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198]"
312 print"       search       "
314 print"[196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]":print
320 input"record no. = 0[157][157][157]";f
321 iff=0then50
322 if i$(f)="/" then goto 320
325 gosub5100
360 print"name  [160][160] = ";fb$(1)
370 print"address  = ";fb$(2)
380 print"zip   [160][160] = ";fb$(3)
382 print"tel   [160][160] = ";fb$(4)
383 print"comment[160] = ";fb$(5)
385 print"---------------------"
390 goto320
5100 rem ***********************
5105 rem * fdd block read      *
5108 rem ***********************
5110 gosub5330
5120 print#15,"u1:";ch;fd;ft;fs
5130 print#15,"b-p:";ch;fp
5140 gosub5270
5150 forfi=1tofx
5160 input#ch,fb$(fi):
5180 next
5190 return
5200 rem ***********************
5201 rem * fdd block write     *
5202 rem ***********************
5210 gosub5330
5220 print#15,"b-p:";ch;fp
5230 forfi=1tofx:print#ch,fb$(fi);chr$(13);:next
5240 print#15,"u2:";ch;fd;ft;fs
5250 gosub5270
5260 return
5270 rem ***********************
5275 rem *  error check        *
5278 rem ***********************
5280 input#15,en,em$,et,es
5290 ifen=0thenreturn
5300 print"error status:";en;em$;et;es
5310 input"continue?";y$:ify$="y"thenreturn
5320 stop
5322 rem ***********************
5324 rem * set track & sector  *
5326 rem ***********************
5330 iff<358thenf1=0:f2=22:f3=1:goto5370
5340 iff>357andf<472thenf1=357:f2=20:f3=19:goto5370
5350 iff>471andf<580thenf1=471:f2=19:f3=25:goto5370
5360 iff>579thenf1=579:f2=18:f3=31
5370 ft=int(((f-f1)-1)/(f2-1))+f3
5380 fs=f-f1-(ft-f3)*f2+(ft-f3-1)
5390 return
8000 print"[147]"
8005 input "last name/first";an$
8010 na=len(an$)
8020 for l=1to664
8025 n1$=i$(l)
8030 n2$=left$(n1$,na)
8045 if an$=n2$then print "file#=";l;"name=";n1$
8046 next
8050 input "another name y/n";ii$
8060 if ii$="y"goto8005
8070 goto 300
63000 print"[147]load"chr$(34)"payload"chr$(34)",8":print"run"
63010 poke631,13:poke632,13:poke198,2:        end